unit RclSysUtils;

interface

procedure NilNoRelease(var AIntf);

implementation

procedure NilNoRelease(var AIntf);
begin
  Integer(AIntf) := 0;
end;

end.
